home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / emacsdoc.arc / ME110.RC < prev    next >
Encoding:
Text File  |  1987-01-11  |  1.7 KB  |  78 lines
  1. ;    EMACS.RC:    Startup file for MicroEMACS 3.8 (HP 110) 
  2. ;
  3. ;            This file is executed everytime the
  4. ;            editor is entered
  5.  
  6. ;    ***** Rebind the Function key group
  7.  
  8. bind-to-key search-forward        FN;
  9. bind-to-key search-reverse        FN<
  10. bind-to-key next-window            FN=
  11. bind-to-key execute-macro        FN>
  12. bind-to-key find-file            FN?
  13. bind-to-key view-file            FN@
  14. bind-to-key save-file            FNA
  15. bind-to-key exit-emacs            FNB
  16. bind-to-key describe-key        FND
  17. bind-to-key meta-prefix            `
  18. bind-to-key beginning-of-file        FNs
  19. bind-to-key end-of-file            FNt
  20.  
  21. ;    Enter Help
  22. 1 store-macro
  23.     delete-other-windows
  24.     help
  25.     8 resize-window
  26.     bind-to-key execute-macro-12 FNH
  27.     bind-to-key execute-macro-13 FNP
  28.     bind-to-key execute-macro-11 FNT
  29.     beginning-of-file
  30.     2 forward-character
  31.     clear-message-line
  32. !endm
  33.  
  34. ;    consult file
  35. 2 store-macro
  36.     2 split-current-window
  37.     previous-window
  38.     view-file @"File to Consult: "
  39.     8 resize-window
  40.     next-window
  41. !endm
  42.  
  43. ;    Exit Help
  44. 11 store-macro
  45.     bind-to-key previous-line FNH
  46.     bind-to-key next-line FNP
  47.     bind-to-key execute-macro-1 FNT
  48.     delete-window
  49.     clear-message-line
  50. !endm
  51.  
  52. ;    last help page
  53. 12 store-macro
  54.     beginning-of-line
  55.     search-reverse "=>"
  56.     1 redraw-display
  57. !endm
  58.  
  59. ;    next help page
  60. 13 store-macro
  61.     beginning-of-line
  62.     2 forward-character
  63.     search-forward "=>"
  64.     1 redraw-display
  65. !endm
  66.  
  67. ;    bring up the function key window
  68.  
  69.     2 split-current-window
  70.     select-buffer "Function Keys"
  71.     2 resize-window
  72.     insert-string " F1 search     | F2 search back | F3 next wind   | F4 Exec Macro  | MENU Help"
  73.     newline
  74.     insert-string "SYS desc key   | F5 Find file   | F6 view file   | F7 save file   | F8 exit"
  75.     beginning-of-file
  76.     unmark-buffer
  77.     next-window
  78.